module constants_mod

  implicit none

  integer, parameter :: r8 = 8
  real(r8), parameter :: pi = atan(1.0d0) * 4.0d0
  real(r8), parameter :: pi2 = pi * 2
  real(r8), parameter :: radius = 6.37122d6
  real(r8), parameter :: rad2deg = 180.d0 / pi
  real(r8), parameter :: deg2rad = pi / 180.d0

end module constants_mod